SYSTEMS ENGINEERING LABORATORIES PROGRAM LIBRARY 

SOFTWARE DESCRIPTION 

CATALOG NO. 310003B 

DATE 1 February 1971 


PROGRAM TITLE: 81OA/B Stand-Alone I/O Package 

(HSPT/ASR/CR/LP) 

PURPOSE: To provide stand-alone I/O handlers for card reader, ASR-33 

teletypewriter, high-speed paper tape reader/punch, and 
line printer. 

CONFIGURATION: SYSTEMS 810A/B with any one or ail of the following 

peripherals: (1) High-Speed Paper Tape Reader/Punch 
(Model 81-610); (2) ASR-33 Teletypewriter (Model 81-712); 
(3) Card Reader (Model 81-410, 450) 

SOFTWARE ENVIRONMENT. Stand-Alone 


PROGRAM LANGUAGE: SYSTEMS 810A/B Assembler Language 


SIZE: 550 locations 


Page 1 of 5 



SYSTEMS 310003B 


CALLING SEQUENCE: 

Character Read/Write Binary Read/Write 

LAA LDN 

CALL H$WR 
DAC BUF 

DATA N 

where: 

BUF is the address of the first location of the I/O buffer. 

N is the number of words for read/write. 


LAA LON 
CALL B$WR 
DAC BUF 
DATA N 


LDN specifies logical device number as follows: 

(Input = positive LDN; Output = negative LDN) 



01 

ASR-33 Keyboard 

02 

H.S. Paper Tape Reader/Punch 

03 

Card Reader 


04 

Line Printer 


05 

Paper Tape Reac 

er/Punch on Teletype 

06 

Magnetic Tape - 

Transport 0 

07 

Magnetic Tape - 

Transport 1 

08 

Magnetic Tape - 

Transport 2 

09 

Magnetic Tape - 

Transport 3 

10 

Magnetic Tape - 

Transport 4 

11 

Magnetic Tape - 

Transport 5 

12 

Magnetic Tape - 

Transports 

13 

Magnetic Tape - 

Transport 7 
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ASR-33 KEYBOARD (Logical Device 1 ) 

INPUT : A full ASCII character is stored in user's buffer. 1 

character per word in bits 8-15. This character is also 
printed by the ASR-33. A delete ( f 377), line feed ('212) 
is ignored. An f ( 1 336) will cause characters in that 
line and all characters following to be ignored until a 
carriage return is typed. This allows user to have another 
attempt at typing a line which has an error in it. Input is 
always terminated on a carriage return even if the word 
count N has not been reached. 

OUTPUT : The first character of the buffer is checked to determine 
if it is one of the following characters: 

(1) Output 4 carriage returns and line feeds to stimulate 
a skip to top of page. 

(0) Output 2 carriage returns and line feeds to space 
between lines. 

A line counter, initially set to -60, is maintained for out¬ 
put to the ASR-33. The user may alter this count by 
storing a new count (A-Register) into symbolic location 
$LINE. 

HIGH-SPEED PAPER TAPE READER/PUNCH (Logical Device 2) 

INPUT ; (Routine TINP) The same routine is used as is used for 

keyboard input. Zero characters are ignored. Paper tape 
is read until a non-zero character is sensed. 

OUTPUT ; (Routine POUT) No special checks are made. This routine 
can be used for binary output. The 8 bits are obtained from 
bits 7-15 of the users buffer. 

CARD READER (Logical Device 3) 

INPUT : (Routine CINP) Cards are read in binary mode whether the 

card reader has a BCD mode or not. Thus, a 12 punch 
causes bit 4 to be set in the computer and a 9 punch causes 
bit 1 5 to be set. The resulting card binary code is first 
translated to BCD and then to full ASCII character is stored 
in the users buffer. A delay of approximately 2 milliseconds 
between columns is used for the translation for the previous 
column. 
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SYSTEMS 310003B 

USE (Cont’d) 

• LINE PRINTER (Logical Device 4) 

(Routine PROT) The first character is checked to determine if it is 
one of the following: 

(+) - Print line and exit. 

(1) - Top of form and fill buffer. 

Print remaining characters in buffer. 

(0) - Space 2 lines before printing next line. 

If none of the control characters are present, a line feed is issued 
before printing a line. The number of lines per page is determined 
by a control tape on the printer. 

• TELETYPE PAPER TAPE READER/PUNCH (Logical Device 5) 

INPUT: (Routine TINP) The same routine is used as for keyboard 

and high-speed paper tape input. 

OUTPUT ; (Routine POUT) The same routine is used as for high¬ 
speed punch. 

• MAGNETIC TAPE (Logical Device 6-13) 

INPUT; If the call is to H$WR, data is transferred from the 

designated transport number at 800 bpi, T character per 
word. When data transfer is complete, a call is generated 
to OBWCT. A check is made for word count completed. If 
not, test is made for end-of-file, which, if found, will 
cause "EOF" to be typed on the ASR and a computer halt. 
Depressing START will cause the EOF to be accepted. If 
not an EOF record, the message n REC LENGTH' 1 will be 
typed to the ASR, followed by a computer halt. Depressing 
START will cause the short record to be rejected, and 
another record to be read. If the word count is complete, 
checks are made for parity errors. If a parity error is 
encountered, the tape is backspaced one record, and a 
read retry attempted. Twenty-five (25) attempts are made 
to read the record, before "PARITY 11 is typed to the ASR, 
and the computer halts. Depressing START will cause the 
record to be accepted. Records are converted from BCD to 
ASCII. If the call is to B$WR, data is transferred from the 
designated transport number at 556 bpi, 3 characters per 
word (binary format). 
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SYSTEMS 310003B 


USE (Cont'd) 


OUTPUT; Processing is the same as for input, except that on call to 
H$WR, the user's buffer is converted from ASCII to BCD 
prior to any data transfer. 
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00001 
00002 
00003 
00004 
00005 
00006 
00007 
00008 
00009 
00010 
00011 
00012 
00013 
00014 
00015 
00016 
00017 
00018 
00019 
00020 
00021 
00022 
00023 
00024 
00025 
00026 
00027 
00028 
00029 
00030 
00031 
00032 
00033 
0 0 0 34 
00035 
00036 


» 3100Q3B SYSTEMS 81QA/B 1/0 PACKAGE F0R HSPT/ASR/CR/LP 

* 

» calling sequence 

* CALL H$WR 

» DAC BA 

* DATA WC 

* 

* WHERE BA IS BASF. ADDRESS 

» WC IS W0RD C0UNT 

* A REGISTER C0NTAINS L0GICAL DEVICE NUMBER 

* IF POSITIVE INPUT 

a NEGATIVE 0 U T P U T 


a 


to 

logical 

DEVICE 

NUMBERS 


to 

logical 

DEV, N it 

3 INPUT 

0UTPUT 

to 

1 


KEYBOARD 

KEYB0ARD 

to 

2 


PAPER TAPE H.S. 

PAPER TAPF H,S, 

to 

3 


CARD READER 

CARD READER 

to 

4 


SPARE 

LINE PRINTER 

to 

5 


PAPER TAPE (TELETYPE) 

paper tape but (tfletyp 


a 

a 


00000 oooooooo 

00000 50000000 
00000 50000525 
00000 50000542 
00000 50000316 


REL 

name h$ w r , h $ w r 

NAME LINE,LINE 
NAME l.$PG,L*PG 
NAME PSP0,P'FP0 


a 

00000 25400000 HfWR DAC 0 


aB 
* B 
aB 

CKA 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 
3 4 

35 

36 
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00037 

00001 

03100600 


STA 

ldn 

SAVE LOGICAL DEVICE NUMBER 


37 

00038 

00002 

00000005 


TAB 


USE AS INDEX 


38 

00039 

000 03 

01100551 

LALO 

LAA 

L 025 



39 

00 040 

00004 

03100526 


STA 

FI 


CKA 

40 

00041 

0 00 05 

03100521 


STA 

FC 

FIRST CHARACTER INDICAT0R 

CKA 

41 

0 0042 

00006 

01300000 


LAA# 

N$WR 


CKA 

42 

00043 

00007 

03100522 


STA 

BA 

ADDRESS 0F BL0CK 

CKA 

43 

00044 

00010 

14100000 


IMS 

M $ W R 


CKA 

44 

00045 

00011 

01300000 


LAA# 

H$WR 

NUMBER 0F 0UTPUT W0RDS 

CKA 

45 

00046 

00012 

00000002 


N E G 



CKA 

46 

00047 

00013 

03100523 


STA 

N C 

NEGATIVE CHARACTER C0UNT 

CKA 

47 

00048 

00014 

14100000 


IMS 

H$WR 


CKA 

48 

00049 

00015 

00000023 


SAN 



CKA 

49 

00050 

00016 

11300000 


BRU# 

H $ W R 


CKA 

50 

00051 

00017 

01100576 


LAA 

CEUO 

CEU 0 , W 


51 

0005? 

00020 

05500144 


AMA 

UNIT,1 



52 

00053 

00021 

03100024 


STA 

CEUL 



53 

00054 

00022 

01500127 


LAA 

' D A T 2»1 



54 

00055 

00023 

03100025 


STA 

DATL 



55 

00056 

00024 

00000033 

CEUL 

N0P 




56 

00057 

00025 

00000033 

DATL 

N0P 




57 

00058 

00026 

01100551 


LAA 

1.025 

= -2 


58 

00059 

0 0 027 

031Q0527 


STA 

WD 

NEG CHARS/W0RD 


59 

0 0 O' 6 0 

00030 

00000004 


TBA 




60 

00061 

00031 

00000024 


SAP 


TEST F0R INPUT/0UTPUT 


61 

00062 

00032 

11100055 


BRU 

S0UT 

0UTPUT 


6 2 

00063 

0 0 033 

01100574 


LAA 

A IPO 

AIR 0,W 


63 

00064 

00034 

05500144 


AMA 

UNIT,1 



64 

0 0 065 

00035 

03100110 


STA 

A I PC 



65 

00066 

00036 

00000004 


TBA 




66 

00067 

00037 

02100573 


lra 

A0P1 

A0P 1,W 


67 

0 00 68 

0 0 0 4 0 

00000110 


RSA 

1 



68 

00069 

00041 

00000022 


SA2 


TEST F0R K6YB0ARD INPUT 


69 

0 0 0 7 0 

00042 

1110005? 


BRU 

N TUI 



70 

00071 

00043 

00170401 


M0P 

ASR 

deleted wait BIT 

11/70 RLD #B 

71 

00072 

0 0 044 

00106400 

CRTN 

DATA 

•106400 



72 


0 



0 


O O 

O O 
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00073 

00045 

11100043 


8RU 

W-2 

DELETED WAIT BIT 

11/70 

RLD *8 

73 

00074 

00046 

00170401 


M0P 

ASR 

DELETED WAIT BIT 

11/70 

RLD *B 

74 

00075 

00047 

00105000 

INFD 

DATA 

* 10500 0 




75 

00076 . 

00050 

11100046 


BRU 

»»• 2 

DELETED WAIT BIT 

11/70 

RLD *B 

76 

00077 

00051 

11100053 


BRU 

* + 2 




7 7 

00078 

00052 

02100127 

NTU1 

LBA 

PAT2 




78 

00079 

00053 

04100113 


STB 

A0PC 




79 

00080 

00054 

11100070 


BRU 

I NPT 

INPUT 



80 

00081 

00055 

01100575 

S0UT 

laa 

A0PQ 




81 

00062 

00056 

05500144 


AMA 

UN I T »1 




82 

00083 

0 0 057 

03100117 


ST A 

A0P0 




93 

00084 

00060 

01300522 

WSWl 

LAA# 

BA 

GET 0NE CHAR F0R 0UTPUT 



84 

00085 

00061 

03100160 


STA 

C0NV 




85 

00086 

00062 

02100600 


LBA 

LDN 

LOGICAL DEVICE N0. 



86 

00067 

00063 

11500160 


BRU 

C0NV.1 




87 

00088 

00064 

01100160 

SPB0 

LAA 

C0NV 

GET CHARACTER 



86 

00089 

00065 

12100116 


SPB 

0UTP 




89 

00090 

00066 

12100076 


SPB 

test 

TEST F0R W0RD COUNT 2ER0 



90 

00091 

00067 

11100060 


BRU 

W$W1 

N0T 



91 

00092 

00070 

12100107 

I NPT 

SPB 

INPC 

INPUT 0NE CHARACTER 



92 

0 0 093 

00071 

02100600 


LBA 

LDN 

L0GICAL DEVICE N0. 



93 

00094 

00072 

11500160 


BRU 

C0NV.1 

C0NVERT 



94 

00095 

00073 

03300522 

STAB 

STA# 

9 A 

ST0RE CHARACTER 



95 

00096 

00074 

12100076 


SPB 

TEST 

TEST F0R WORD COUNT ZER0 



96 

00 097 

00075 

11100070 


BRU 

I NPT 




97 

00098 

00076 

00000000 

TEST 


»# 




96 

0 0 099 

00077 

14100523 


IMS 

NC 

NEG, CHARACTER COUNT 



99 

00100 

ooioo 

11100105 


BRU 

N0TD 

N0T DOME 



100 

00101 

00101 

01100526 


LAA 

FI 




101 

0 010 2 

00102 

00000023 


SAN 


TEST F0R M0RE I/O 



102 

00103 

00103 

11300526 


BRU* 

FI 

YES 



103 

0010 4 

00104 

11300000 


BRU* 

MS NR 

RETURN 



104 

00105 

00105 

14100522 

N0TD 

IMS 

9 A 

increment base address 



105 

00106 

00106 

11300076 


BRU* 

TEST 

RETURN 



106 

00107 

0 810 7 

oooooooo 

INP C 

£11 

#* 

INPUT A CHARACTER 



107 

0010B 

0 0110 

00000033 

A 1 PC 

NOP 


A IP UNIT,W 



10 8 
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0 010 9 

00111 

03100160 


ST A 

C 0 N V 

SAVE CHARACTER 


10 9 

00110 

00112 

00001016 


LSL 

f\ ... 

PREPARE F0E 0UTPUT 


110 

' 00111 

00113 

00000033 

A0PC 

N0P 


0UTPUT IF KEYBOARD INPUT 


111 

00112 

0 0114 

01100160 


LA A 

C0NV 

LAST CHARACTER INPUT 


112 

00113 

0 0115 

11300107 


8RU» 

IN PC 

RETURN 


113 

00114 

00116 

00000000 

0UTP 

ZZZ 


0UTPUT A CHARACTER 


114 

| 00115 

00117 

00000033 

A0P0 

N0P 


A 0 P UNIT # W 


115 

00116 

00120 

11300116 


BRU*- 

MU TP 

RETURN 


116 

0 0117 

00121 

00000000 


HIT 


M0 MAG TAPE 1/0 


117 

00118 

00122 

00002000 


DATA 

’2000 



118 

00119 

0 0123 

00000200 


DATA 

*200 



119 

00120 

00124 

00000000 


DATA 

0 



120 

00121 

00125 

00004000 


DATA 

* 4000 



121 

00122 

00126 

U0U020Q0 


DATA 

* 20 0 0 



122 

00123 

00127 

00000033 

DATZ 

N0P 




123 

j 00124 

00130 

00002000 


DATA 

' 2000 



124 

00125 

00131 

ooooiooo 


DATA 

' 1000 



125 

00126 

00132 

00004000 


DATA 

* 4000 



126 

00127 

00133 

0QU00000 


DATA 

0 



127 

00128 

00134 

00004000 


DATA 

* 4000 



128 

0 0129 

00135 

00000000 


HIT 


N0 MAG TAPE 1/0 


129 

00130 

00136 

00047733 


DATA 

*47733 

N0P-CEU 0,W 


130 

0 0131 

00137 

OOUOOGOl 


DATA 

1 


CKA 

131 

00132 

0014 0 

00000005 


DATA 

5 


CKA 

132 

0 0133 

0 0141 

00000001 


DATA 

1 


CKA 

133 

00134 

00142 

00000002 


DATA 

2 


CKA 

134 

00135 

0 0143 

00000001 


DATA 

1 


CKA 

135 

0 0136 

00144 

25400000 

UNIT 

DAC 

0 


CKA 

136 

0 0137 

00145 

00000001 


DATA 

1 


CKA 

137 

0 0138 

0 0146 

00000002 


DATA 

2 


CKA 

138 

00139 

0 0147 

00000004 


DATA 

4 


CKA 

139 

00140 

0 0150 

00000001 


DATA 

1 


CKA 

140 

00141 

00151 

00000001 


DATA 

3 


CKA 

141 

00142 

0 0152 

00047733 


DATA 

* 47733 

N0P-CEU 0,W 


142 

00143 

00153 

11100311 


6 P U 

P0UT 

-5 PAPER TAPE 0UT-TELETYPE 


143 

00144 

00154 

11100323 


BP U 

PR0 T - : . 

-4 LINE PRINTER 0UTPUT 


14 4 


o 



o 


O . ; o 

o o 

- 




0 



o 


o 

o 

o o 
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00145 

00155 

11100240 


BRD 

T0T2 

-3 CARD PUNCH 0UTPUT 


145 

00146 

00156 

11100311 


BRU 

P0UT 

-2 PAPER TAPE 0UT-BRPE 


146 

00147 

00157 

11100235 


BRU 

T0UT 

'1 KFYB0ARD 0UTPUT 


147 

00148 

00160 

25400000 

C 0 N V 

DAC 

0 

0 


148 

00149 

0 0161 

11100166 


BRU 

TINP 

1 KEYB0ARD INPUT 


14 9 

00150 

00162 

11100166 


BRU 

TINP 

2 PAPER TAPE INPUT-HSR 


150 

0 0151 

00163 

11100370 


BRU 

CINP 

3 CARD READER INPUT 


151 

00152 

00164 

00000033 


N0P 


4 SPARE INPUT 


152 

00153 

00165 

11100166 


BRU 

TINP 

5 PAPER TAPE IN-TELETyPE 


153 

00154 

00166 

02100227 

TINP 

LBA 

I ADI 



154 

00155 

00167 

04100526 


STB 

FI 



155 

00156 

00170 

00U00022 


SAZ 




156 

00157 

00171 

11100173 


BRU 

tt + 2 



157 

00158 

00172 

11100070 


BRU 

INPT 

IGN0RE ZER0 


158 

00159 

00173 

15100552 


cma 

1067 



159 

00160 

00174 

11100176 


BRU 

# + 2 



160 

00161 

00175 

11100070 


BRU 

INPT 

IGN0RE DELETE 


161 

0 0162 

00176 

15100567 


CMA 

1053 



162 

00163 

00177 

11100201 


BRU 

» * 2 



163 

00164 

00200 

11100070 


8RU 

INPT 

IGN0RE LINE FEED 


164 

00165 

00201 

15100570 


CMA 

L052 



165 

0 0166 

00202 

11100204 


BRU 

4 + 2 



166 

00167 

0 02 0 3 

11100221 


BRU 

TCRD 

TERMINATE CARD 0N CRRG, RETURN 


167 

00168 

00204 

15100577 


CMA 

KDEL 



168 

00169 

0 0205 

11100073 


BRU 

STAB 



169 

00170 

00206 

11100210 


BRU 

4 + 2 

DELETE LINE 0F INPUT 


170 

0 0171 

00207 

11100073 


BRU 

STAB 



171 

00172 

00210 

12100107 


SPB 

INPC 

INPUT CHARACTER 


172 

00173 

00211 

06100570 


SNA 

1.0 52 



173 

00174 

00212 

UOUO0O22 


SAZ 




174 

00175 

00213 

11100210 


BRU 

« 3 



175 

0 0176 

00 214 

01100000 


LAA 

MSWR 



176 

00177 

00215 

05100551 


AHA 

L 0 25 



177 

00178 

00216 

03100000 


STA 

HSWR 



178 

00179 

00217 

02100600 


LBA 

L D I'M 



179 

0 016 0 

00220 

11100003 


BRU 

LAID 



180 
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00181 

00221 

01100553 

TCP!) 

LAA 

1, 003 

00182 

00222 

03300522 


ST A# 

BA 

0 018 3 

00223 

14100522 


IMS 

BA . 

00184 

00224 

14100523 


IMS 

N C 

00185 

0 0225 

11100222 


BRU 

TCKD+1 

00186 

00226 

11300000 


8PU* 

NS WR 

00187 

00227 

35400230 

I ADI 

DAC 

» +1 

00188 

00230 

12100107 


SPB 

JNPC 

00189 

00231 

15100570 


CM A 

1052 

00190 

00232 

11100230 


BRU 

#»2 

0 0191 

00233 

11300000 


BRU* 

HSWR 

00192 

00234 

11100230 


BRU 

«*4 

00193 

00235 

01100521 

T0UT 

LAA 

fc 

00194 

00236 

00000024 


SAP 


00195 

00237 

11100243 


BRU 

T0T1 

00196 

00240 

01100160 

T0T2 

LAA 

C0NV 

00197 

00241 

00001016 


LSL 

8 

00198 

00242 

11100065 


BRU 

SPB0+1 

00199 

00243 

01100160 

T0T1 

LAA 

C0NV 

00200 

00244 

15100554 


CMA 

1117 

00201 

00245 

11100247 


BRU 

# *2 

0 0 202 

00246 

11100257 


BRU 

PGE 

0 020 3 

00247 

15100555 


CMA 

L0 74 

0 0204 

00250 

11100252 


BRU 

* + 2 

00205 

00251 

11100254 


BRU 

TWLN 

00206 

00252 

12100273 


SPB 

CRLF 

00207 

00253 

11100240 


BRU 

TUT 2 

0 0208 

00254 

12100273 

TWIN 

SPB 

CRLF 

00209 

00255 

12100273 


SPB 

CRLF 

0 0 210 

00256 

11100066 


BRU 

5PB0+2 

00211 

00257 

01100525 

PGE 

LAA 

LINE 

0 0212 

00260 

15100656 


CMA 

10 77 

00 213 

00261 

11100265 


3RU 

N.W P G 

0 0 214 

00262 

11100267 


BRU 

AWPG+2 

00218 

00263 

11100265 


6RU 

N W P G 

00216 

0 0264 

12100532 


SPB 

CL 


0 o 


310Q03B 


02/01/71 PAGE 


6 




181 

182 

183 

184 

185 

186 



187 

FIRST CHARACTER TEST 


188 

189 

190 

191 

192 

193 

YES 


194 

195 


CK A 

196 

197 

1= NEW PAGE 


196 

199 

200 
201 
202 



203 

204 

205 

CUTPUT CR, LF 


206 

0UTPUT CHARACTER 


207 

0UTPUT 2LF.C/R 


208 

ALL 0THERS = C/R» LF 


2 0 y 



210 

REMAINING LINES/PAGE 


211 

INITIAL C0UNT 


212 

G0 SPACE T0 T0P 0F PAGE 


213 

STILL AT T0P 0F PAGE 


214 

G0 SPACE T0 TUP 0F PAGE 

*B 

215 

CRRG. RET./ LINE FEED 


216 


o o : o.o 



o 


o o 
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00217 

00265 

14100525 

NWPG 

IMS 

LINE 

C0UNT D0WN REMAINING LINES 



217 

00218 

00266 

11100264 


BRU 






218 

00219 

00267 

12100300 


SPB 

NPG 

0UTPUT 4 JF 




219 

00220 

00270 

11100066 


BRU 

S P B 0 + 2 





220 

00221 



# «, — m m 


•C/R#LINE FEEP 

AND B00KKEEP LINE 

C0UNT 



221 

00222 

00271 

12100532 


SPB 

Cl 

CRRG, RET,/ LINE 

FEED 



222 

00223 

00272 

11300273 


BRU# 

CRLF 





223 

00224 

00273 

11000000 

CRLF 

BRU 






224 

00225 

00274 

14100525 


IMS 

LINE 





225 

00226 

00275 

11100271 


BRU 

# 4 





226 

00227 

00276 

12100300 


SPB 

NPG 

NEW PAGE 




227 

00228 

00277 

11300273 


BRU# 

CRLF 





228 

00229 

00300 

11000000 

NPG 

BRU 






229 

00230 

00301 

01100556 


LAA 

L077 





230 

00231 

00302 

03100525 


STA 

LINE 





231 

00232 

00303 

01100557 


LAA 

L01.8 





232 

00233 

00304 

03100530 


STA 

PAGE 





233 

00234 

00305 

12100532 


SPB 

CL 

CRRG, RET,/ LINE 

FEED 



234 

00235 

00306 

14100530 


IMS 

PAGE 





235 

00236 

0 0 30 7 

11100305 


BRU 

#»2 





236 

00237 

00310 

11300300 


BRU# 

NPG 





237 

00238 

00311 

02100571 

P0UT 

LBA 

LI 0 0 





238 

00239 

00312 

04100526 


STB 

FI 





239 

00240 

00313 

11100240 


BRU 

T0T2 





240 

00241 

00314 

12100532 

P0T1 

SPB 

CL 

CRRG, RET,/ LINE 

FEED 



241 

00242 

00315 

11300000 


BRU# 

HSWR 



CkA 


242 

00243 



# 






#B 

243 

00244 

00316 

oooooooo 

PSP0 

### 

## 

TURN PUNCH P0WER 

0FF 


#B 

244 

00245 

0 0 317 

00130002 


CEU 

HSPT 

DELETED WAIT BIT 


11/70 RLD 

#B 

245 

00246 

00320 

00002000 


DATA 

•2000 

PUNCH P0WER 0f F 



#B 

246 

00247 

00321 

11100317 


BRU 

•!> * 2 

deleted WAIT BIT 


11/70 RLD 

#B 

247 

00248 

00322 

11300316 


BRU# 

P$P0 

RETURN 



#B 

248 

00240 



# 







249 

00250 

00323 

01100521 

PR0T 

LAA 

FC 





250 

00251 

00324 

00000023 


SAN 






251 

0 0252 

0 0 325 

11100240 


BRU 

T0T2 





252 
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00253 

00326 

01100572 


LAA 

t 101 





253 

00254 

00327 

03100526 


STA 

FI 





254 

00255 

00330 

03100521 


STA 

FC 





255 

00256 

00331 

01100160 


LAA 

C0NV 





256 

00257 

0 0332 

15100560 


CMA 

LI 02 





25 7 

00258 

00333 

11100335 


BRU 

*♦2 





258 

00259 

00334 

11100364 


BRU 

p R 01 





259 

00260 

00335 

15100554 


CMA 

1117 





260 

00261 

0 0 336 

11100340 


BRU 

« + 2 





261 

00262 

00337 

11100356 


BRU 

7 00 L 





262 

00263 

0034Q 

15100555 


CMA 

1011 





263 

00264 

00341 

11100343 


BRU 

«• + 2 





264 

00265 

00342 

11100347 


BRU 

TW0L 





265 

00266 

00343 

00130005 


CEU 

LP 

DELETED WAIT BIT 

11/70 

rld 

* b 

266 

00267 

00344 

00002100 


DATA 

• 2100 

FEED LINE, FILL BUFFER 




267 

00268 

00345 

11100343 


BRU 

»** 2 

DELETED WAIT BIT 

11/70 

RLD 

*6 

268 

00269 

00346 

11100240 


BRU 

T0T2 

START FILLING BUFFER 




269 

00270 

00347 

00130005 

TW0L 

CEU 

LP 

DELETED WAIT BIT 

11/70 

RLD 

*b 

270 

00271 

0035Q 

00002000 


DATA 

'2000 

feed line 




271 

00272 

00351 

11100347 


BRU 

«■ 2 

DELETED WAIT BIT 

11/70 

RLD 

* B 

272 

00273 

00352 

00130005 


CEU 

LP 

DELETED WAIT BIT 

11/70 

rld 

*B 

273 

00274 

00353 

00002(300 


DATA 

'2000 

FEED AN0THER L I N E 



*B 

274 

00275 

0 0 354 

11100352 


BRU 

»-2 

DELETED WAIT BIT 

11/70 

RLD 

*B 

275 

00276 

00355 

11100361 


BRU 

CCCC 




* B 

276 

00277 

00356 

00130005 

imi 

CEU 

LP 

DELETED WAIT BIT 

11/70 

RLD 

*B 

277 

00278 

00357 

00001100 


data 

'1100 

PAGE EJECT, FILL BUFFER 




278 

00279 

00360 

11100356 


BRU 

*-2 

DELETED WAIT BIT 

11/70 

rld 

*B 

279 

00280 

00361 

01100553 

cccc 

LAA 

1003 

3 '240 



*B 

280 

00281 

00362 

03100160 


STA 

C0NV 

SUPPRESS CARRIAGE C0NTR0L 

CHARACTER 


*B 

281 

00282 

00363 

11100240 


BRU 

T0T2 





282 

0 0 283 

00364 

00130005 

PR01 

CEU 

LP 

DELETED WAIT BIT 

11/70 

rld 

*B 

283 

00264 

0 0 365 

00000400 


DATA 

'000400 


CK A 


284 

00285 

00366 

11100364 


BRU 

*•2 

DELETED WAIT BIT 

11/70 

RLD 

*B 

285 

00266 

00 367 

11300000 


BRU* 

HSWR 


CK A 


286 

00287 

00370 

01100437 

Cl MR 

LAA 

FR39 

-9 




287 

00268 

00371 

03100531 


STA 

FCNT 

SHIFT C0UNTER 




288 


0 O : o 


o 
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00269 

00372 

02100361 


lba 

DHR0 

0 


289 

00290 

00373 

01100160 


LA A 

C 0 N V 

UNITARY C0DED CHAR 


290 

00291 

0 0 374 

15100440 


CMA 

06 TH 

TEST F0R QUEST 10N MARK 


291 

00292 

00375 

11100377 


BRU 

» + 2 

N0 


292 

00293 

00376 

11100434 


BRU 

STB 

YES 


293 

00294 

00377 

15100566 


CMA 

LQ 04 

TEST F0R 2ER0 


294 

00295 

00400 

11100402 


BRU 

W 4 1 2 

N0 


295 

00296 

00401 

11100433 


BRU 

AMB1 

YES 


296 

00297 

00402 

15100550 


CMA 

excl 



297 

00298 

00403 

11100405 


BRU 

tt + 2 

N0 


298 

00299 

00404 

11100432 


BRU 

AMB4 

YES 


299 

00300 

00405 

00000022 


S AH 


TEST FDR SPACE 


300 

00301 

00406 

11100411 


BRU 

# + 3 

N0 


301 

00302 

00407 

02100562 


LBA 

L035 

'20 


302 

00303 

00410 

11100434 


BRU 

STB 



303 

00304 

00411 

00000416 


LSL 

4 



304 

00305 

00412 

00000024 


SAP 


TEST F0R 12 PUNCH 


305 

0 0306 

00413 

16100441 


AMB 

3STY 

’60 


306 

00307 

00414 

00000116 


LSL 

1 



307 

00308 

00415 

00000024 


SAP 


TEST FDR 11 PUNCH 


308 

00309 

00416 

16100563 


AMB 

B022 

MO 


309 

00310 

00417 

00000116 


LSL 

1 



310 

003H 

00420 

00000024 


SAP 


TEST F0R 0 PUNCH 


311 

00312 

00421 

16100562 


AMB 

LQ35 

’20 


312 

00313 

00422 

00000116 

LSI 

LSL 

1 



313 

00314 

00423 

00000023 


SAN 


TEST FDR NEXT R0W PUNCH 


314 

00315 

00424 

11100427 


BRU 

IMS 

N0 


315 

00316 

00425 

16100564 


AMB 

DO 0 3 

ADJUST TDTAL FDR PUNCH 


316 

00317 

00426 

16100531 


AMB 

FCNT 



317 

00318 

0 0427 _ 

14100531 

IMS 

IMS 

F CNT 



318 

00319 

0043Q 

11100422 


BRU 

LSL 

N0 


319 

00320 

00431 

11100434 


BRU 

STB 

YES 


320 

0 0 321 

00432 

16100563 

A H B 4 

AMB 

DO 22 

MO 


321 

0 032? 

00433 

16100564 

AMR1 

AMB 

D 0 0 3 

'1? 


322 

0 0323 

00434 

12100502 

STB 

SPB 

BCD A 



323 

0 0 324 

00435 

00000004 


re a 




324 
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00330 00445 00133267 

00330 00446 00134271 

00330 00447 00130275 

00330 00450 00123672 

00330 00451 00137240 

00330 00452 00120257 

00330 00453 00151724 

00330 00454 00152726 

00330 00455 00153730 

00330 00456 00154732 

00330 00457 00120254 

00330 00460 00124243 

00330 00461 0 0 i.56242 

00330 00462 00126712 

00330 00463 00145714 

00331 00464 00146716 DATA 

00331 00465 00147720 

00331 00466 00150722 

00331 00467 00120644 

00331 00470 00125335 

00331 00471 00135700 

00331 00472 00125701 

00331 00473 00141303 

00331 00474 00142305 

00331 00475 00143307 

00331 00476 00144311 

00331 00477 00137656 

00331 00500 00124733 

00331 00501 00136337 


0 o 


HSPT/ASR/CR/LP 310QQ3R 


STAB 

-9 

’5000 

48 
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326 

327 

328 

329 

330 


331 
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00332 

0 0 502 

U0U000Q0 

BCDA 

222 




332 

00333 

00503 

03100517 


STA 

FSAV 



333 

00334 

0 0 504 

00000003 


cla 




334 

00335 

00505 

00001713 


FLL 

15 

DIVIDE C0DE By TWB 


335 

00336 

00506 

00000006 


IAB 




336 

00337 

00507 

02500442 


LBA 

TABL, 1 

GET TWG C0DES 


337 

00338 

00510 

00000024 


SAP 


BCD C0DE 0DDO 


338 

00339 

00511 

00001013 


FLL 

8 

YES 


339 

00340 

00512 

00000004 


TRA 


N0 


340 

00341 

00513 

00001015 


RSL 

8 



341 

00342 

00514 

00000005 


TAB 




342 

00343 

00515 

01100517 


LAA 

FSAV 



343 

00344 

00516 

11300502 


•BRU« 

BCD A 



344 

00345 

00517 

25400000 

FSAV 

DAC 

0 



345 

00346 

00520 

254Q000O 

SIX 

DAC 

0 



346 

00347 

00521 

25400000 

FC 

DAC 

0 



347 

00348 

00522 

254QQ000 

BA 

DAC 

0 



348 

00349 

00523 

25400000 

NC 

DAC 

0 



349 

00350 

00524 

25400000 

W0RD 

DAC 

0 



350 

00351 

00525 

00177720 

LINE 

DATA 

- * 60 



351 

00352 

00526 

254Q0000 

SCN 

DAC 

0 

0 

CK A 

352 

00353 

00527 

25400000 

SUN 

DAC 

0 

0 

CKA 

353 

00354 

00530 

25400000 

TUN 

DAC 

0 

0 

CK A 

354 

00355 

00531 

00000526 

FI 

EOU 

SCN 


CKA 

355 

00356 

00531 

00000527 

WD 

EQU 

SUN 


CKA 

356 

00357 

00531 

00000530 

PAGE 

EQU 

TUN 


CKA 

357 

00358 



# 





358 

00359 



a 





359 

00360 

00531 

oooooooo 

FCNT 

HLT 




360 

00361 



# «■ «■ m 


-THIS SUBR0UTJNE 0UTPUTS C/R,LF 0N SUN, 


361 

0 0362 

00532 

11000000 

CL 

BRU 




362 

0 0363 

00533 

01100044 


LAA 

CRTN 



363 

0 0 364 

00534 

12100116 


SPB 

; UTP 



364 

00365 

00535 

01100047 


LAA 

L.NFD 



365 

0 0366 

00536 

12100116 


SPB 

-: UTP 



366 

00367 

0 0 537 

00000003 


CLA 




367 
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00368 

00540 

03100521 


STA 

F C 



368 

00369 

00541 

11300532 


BRU« 

CL 



369 

0 0370 








370 

00371 

00542 

00000000 

LSP'G 

* #. 


SET NUMBER 0F LINES/PAGE 


371 

00372 

00543 

00000023 


SAN 



« B 

372 

00373 

0 0 544 

U0.U0.0002 


nf g 




373 

0 0 374 

00545 

03100556 


STA 

L0 77 


*B 

374 

00375 

00546 

03100525 


STA 

LINE 


*B 

375 

00376 

0 0 547 

11300542 


BRU» 

LSPG 

RETURN 

*8 

376 

00377 








377 

00378 

0055Q 

00003000 

EXCI 

DATA 

' 3000 



378 

00379 

00551 

00177776 

L025 

DATA 

— 2 



379 

00380 

00552 

00000377 

LQ67 

DATA 

' 377 



380 

0 0 381 

00553 

00000240 

1003 

DATA 

* 240 

SPACE 


381 

00382 

00554 

00000261 

LI 17 

DATA 

'261 



382 

00383 

00555 

00000260 

L 074 

data 

'260 



383 

00384 

00556 

00177720 

LQ77 

DATA 

'-60 



384 

00385 

00557 

00177774 

L 018 

DATA 

-4 



385 

00386 

0056Q 

00000253 

LI 0 2 

DATA 

'253 



386 

00387 

00561 

00000555 

L011 

EQU 

L 0 74 



387 

00388 

00561 

oooooooo 

DZR0 

DATA 

0 



388 

00389 

00562 

00000020 

L035 

DATA 

1.6 



389 

00390 

00563 

00000040 

DO 22 

DATA 

'40 



390 

00391 

00564 

U0 U0.0 012 

DO 0 3 

DATA 

'12 



391 

00392 

00565 

00177777 

L013 

DATA 

'177777 



392 

00393 

00566 

00001000 

L004 

DATA 

'001000 

ASR 33 TYPE C0DE 


393 

00394 

00567 

00000212 

L053 

DATA 

'212 



394 

00395 

00570 

00000215 

1-052 

DATA 

'215 



395 

00396 

0 0 571 

35400314 

L100 

DAC 

P0T1 



396 

00397 

00572 

35400364 

L101- 

DAC 

P R 01 



397 

0 0 398 

00573 

00170101 

A0P1 

A0P 

1#W 



398 

00399 

00574 

00170300 

A IP 0 

A I P 

0 t M 



399 

00400 

00575 

00170100 

A0PO 

A0P 

0, w 



400 

0 0 401 

00576 

00130100 

CEUQ 

CFU 

0 , W 



401 

00402 

00577 

00000336 

KDFL 

data 

•336 

DELETE A LINE C0DE IS THE 1 

"UP ARR0R" 

402 

0 0 4 0 3 

00600 

25400000 

LDN 

DAC 

0 



403 
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00404 

00601 00000001 ASF? 

EOU 

1 

A SR” 

33 

11/70 RLD 


404 

00405 

00601 00000002 HSPT 

EQU 

2 

HIGH 

SPEED PAPER TAPE 

11/70 RLD 

*B 

405 

00406 

00601 00000005 L.P 

EQU 

5 

LINE 

printer 

11/70 RLD 


406 

00407 

00601 70400000 

END 
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A I PC 
AMB1 
AMB4 
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A 0 P1 
A0PC 
A0P0 
ASR 
BA 

BCD A 

cccc 

CEUO 
CEUL 
CINP 
CL 

C0MV 

CRLF 
CRTN 
DO 03 
D022 
DATL 
DAT? 

D?R0 

excl 

FI 
FC 

FCNT 
FR 7 9 
FSAV 
HSWR 

HSPT 
I ADI 
IMS 
I NP C 
I N P T 
KOEL 


63 

ft 

399 

65 

ft 

108 

296 

& 

322 

299 


321 

81 


400 

67 


398 

79 


111 

83 

■» 

115 

71 


7 4 

43 


84 

323 

V 

332 

276 

V 

280 

51 

i> 

401 

53 


56 

151 


287 

216 


222 

85 


87 

256 


281 

206 


208 

72 


363 

316 


322 

309 


321 

55 

# 

57 

54 


78 

289 


388 

297 


378 

40 


101 

41 


193 

288 


317 

287 

# 

326 

333 


343 

31 


36 

178 


186 

245 


405 

154 


187 

315 

& 

318 

92 

# 

107 

80 


92 

168 


402 


404 

95 105 

344 


234 

241 

88 

94 

290 


209 

223 

391 


390 


123 



103 

155 

250 

255 

318 

# 360 

345 

42 

44 

191 

242 


113 

172 

97 
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33 


371 


376 






1003 


181 


280 


381 






1,0 04 


294 


393 








L011 


263 


387 








L013 


392 










1018 


232 

& 

385 








1025 


39 


58 


177 


379 




1035 


302 


312 


389 






1052 


165 


173 


189 


395 




1053 


162 


394 








1067 


159 


380 








L074 


203 


383 


387 






1077 


212 


230 


374 


384 




L100 


238 


396 








L101 


253 


397 








1102 


257 


386 








1117 


200 


260 


382 






1AL0 

4 * 

39 


180 








1 DN 


37 


86 


93 


179 

* 403 



LINE 


32 


211 


217 
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231 
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375 

LNFD 


75 


365 








LP 


266 
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273 


277 

283 

* 406 


LSI 


313 


319 








NC 


47 


99 


134 


349 




N0TD 


100 


105 








NPG 


219 


227 


229 


237 




NTU1 


70 


78 








NWPG 


213 


214 


215 


217 




06 TH 


291 

to 

327 








0 STY 


306 


328 








0UTP 


89 


114 


116 


364 

366 



PSP 0 


34 


244 


248 






PAGE 


233 
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211 
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STAB 

ft 

95 


STB 
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SUN 

ft 

353 


TABL 

ft 

329 


TCRD 


167 

ft 

TEST 


90 


T I NP 


149 


T0T1 


195 

ft 

T0T2 


145 

ft 

T0UT 


147 

ft 

TUN 

ft 

354 


TWLN 


205 

ft 

TW0L 


265 

ft 

UNIT 


52 


W 


398 


w$wi 

ft 

84 


WD 


59 

ft 

W0RD 

ft 

350 


2001 
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SYSTEMS ENGINEERING LABORATORIES PROGRAM LIBRARY 

SOFTWARE DESCRIPTION 

CATALOG NO. 310003B 

' DATE 1 February 1971 


PROGRAM TITLE: 810A/B Stand-Alone I/O Package 

(HSPT/ASR/CR/LP) 

PURPOSE: To provide stand-alone I/O handlers for card reader, ASR-33 

teletypewriter, high-speed paper tape reader/punch, and 
line printer. 

CONFIGURATION: SYSTEMS 810A/B with any one or all of the following 

peripherals: (1) High-Speed Paper Tape Reader/Punch 
(Model 81-610); (2) ASR-33 Teletypewriter (Model 81-712); 
(3) Card Reader (Model 81-410, 450) 

SOFTWARE ENVIRONMENT. Stand-Alone 


PROGRAM LANGUAGE: SYSTEMS 810A/B Assembler Language 


SIZE: 550 locations 
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SYSTEMS 310003B 


CALLING SEQUENCE: 


Character Read/Write 


Binary Read/Write 


LAA LDN 

CALL H$WR 
DAC BUF 

DATA N 


LAA LON 
CALL B$WR 
DAC BUF 
DATA N 


where: 

BUF is the address of the first location of the I/O buffer. 

N is the number of words for read/write. 

LDN specifies logical device number as follows: 

(Input = positive LDN; Output = negative LDN) 


01 

ASR-33 Keyboard 

02 

H.S. Paper Tape Reader/Punch 

03 

Card Reader 


04 

Line Printer 


05 

Paper Tape Reader/Punch on Teletype 

06 

Magnetic Tape - 

Transport 0 

07 

Magnetic Tape - 

Transport 1 

08 

Magnetic Tape - 

Transport 2 

09 

Magnetic Tape - 

Transport 3 

10 

Magnetic Tape - 

Transport 4 

11 

Magnetic Tape - 

Transport 5 

12 

Magnetic Tape - 

Transport 6 

13 

Magnetic Tape - 

Transport 7 
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USE: 


• ASR-33 KEYBOARD (Logical Device 1 ) 

INPUT : A full ASCII character is stored in user's buffer. 1 

character per word in bits 8-15. This character is also 
printed by the ASR-33. A "delete (’377), line feed ('212) 
is ignored. An f ('336) will cause characters in that 
line and all characters following to be ignored until a 
carriage return is typed. This allows user to have another 
attempt at typing a line which has an error in it. Input is 
always terminated on a carriage return even if the word 
count N has not been reached. 

OUTPUT : The first character of the buffer is checked to determine 
if it is one of the following characters: 

(1) Output 4 carriage returns and line feeds to stimulate 
a skip to top of page. 

(0) Output 2 carriage returns and line feeds to space 
between lines. 

A line counter, initially set to -60, is maintained for out¬ 
put to the ASR-3 3. The user may alter this count by 
storing a new count (A-Register) into symbolic location 
$LINE. 

• HIGH-SPEED PAPER TAPE READER/PUNCH (Logical Device 2) 

INPUT ; (Routine TINP) The same routine is used as is used for 

keyboard input. Zero characters are ignored. Paper tape 
is read until a non-zero character is sensed. 

OUTPUT : (Routine POUT) No special checks are made. This routine 
can be used for binary output. The 8 bits are obtained from 
bits 7-15 of the users buffer. 

• CARD READER (Logical Device 3) 

INPUT : (Routine CINP) Cards are read in binary mode whether the 

card reader has a BCD mode or not. Thus, a 12 punch 
causes bit 4 to be set in the computer and a 9 punch causes 
bit 15 to be set. The resulting card binary code is first 
translated to BCD and then to full ASCII character is stored 
in the users buffer. A delay of approximately 2 milliseconds 
between columns is used for the translation for the previous 
column. 
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USE (Cont'd) 

• LINE PRINTER (Logical Device 4) 

(Routine PROT) The first character is checked to determine if it is 
one of the following: 

(+) - Print line and exit. 

(1) - Top of form and fill buffer. 

Print remaining characters in buffer. 

(0) - Space 2 lines before printing next line. 

If none of the control characters are present, a line feed is issued 
before printing a line. The number of lines per page is determined 
by a control tape on the printer. 

• TELETYPE PAPER TAPE READER/PUNCH (Logical Device 5) 

INPUT; (Routine TINP) The same routine is used as for keyboard 

and high-speed paper tape input. 

OUTPUT : (Routine POUT) The same routine is used as for high¬ 
speed punch. 

• MAGNETIC TAPE (Logical Device 6-13) 

INPUT; If the call is to H$WR, data is transferred from the 

designated transport number at 800 bpi, 1 character per 
word. When data transfer is complete, a call is generated 
to OBWCT. A check is made for word count completed. If 
not, test is made for end-of-file, which, if found, will 
cause "EOF 11 to be typed on the ASR and a computer halt. 
Depressing START will cause the EOF to be accepted. If 
not an EOF record, the message n REC LENGTH" will be 
typed to the ASR, followed by a computer halt. Depressing 
START will cause the short record to be rejected, and 
another record to be read. If the word count is complete, 
checks are made for parity errors. If a parity error is 
encountered, the tape is backspaced one record, and a 
read retry attempted. Twenty-five (25) attempts are made 
to read the record, before n PARITY M is typed to the ASR, 
and the computer halts. Depressing START will cause the 
record to be accepted. Records are converted from BCD to 
ASCII. If the call is to B$WR, data is transferred from the 
designated transport number at 556 bpi, 3 characters per 
word (binary format). 
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USE (Cont'd) 


OUTPUT: Processing is the same as for input, except that on call to 
H$WR, the user's buffer is converted from ASCII to BCD 
prior to any data transfer^ 
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0 0 0 0 3 



to 
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00004 



to 
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00005 
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00006 



to 
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00007 



to 

CALLING 

SEQUENCE 
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to 

CALL 

H3> WR 
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DAC 

BA 
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00010 
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DATA 

WC 




10 

00011 



to 






11 

00012 



to 

where 

BA IS BASE ADDRESS 




12 

00013 
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WC IS W0RD C0UNT 




13 
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v A REGISTER C0NTAINS L0GI CAL DEVICE NUMBER 




15 
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to 

'IF 

POSITIVE INPUT 
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NEGATIVE 0UTPUT 
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L0GICAL DEVICE NUMBERS 




19 
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to 

LOGICAL DEV, N0 INPUT 

0UTPUT 



20 

00021 



to 

1 

KEYBOARD 

KEYB0ARD 



21 

0002? 



to 

2 

PAPER TAPE H.S. 

PAPER TAPF H.S 

• 


22 

00023 



to 

3 

CARD READER 

CARD READER 



23 

00024 



to 

4 

SPARE 

LINE PRINTER 



24 

00025 
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PAPER TAPE (TELETYPE) 

PAPER TAPE 0UT 

(TELETYP 

25 
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to 
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29 

00030 

ooooo 

00000000 


REL 
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NAME 

MJWR.HSWR 
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NAME 
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32 
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LJPG,L*PG 
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00037 

00001 

03100600 


STA 

ldn 

SAVE LOGICAL DEVICE NUMBER 


37 
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TAB 


USE AS INDEX 
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FI 
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CKA 

47 

00048 

00014 

14100000 


IMS 

HSWR 
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V 

LAA 

CEU0 

CEU 0,W 


51 

00052 
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57 
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58 
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00027 

03100527 


STA 

WD 
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00000004 


TRA 
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SAP 


TEST F0R INPUT/0UTPUT 


61 

00062 
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BRU 

S0UT 

0UTPUT 


62 

00063 

00033 

01100574 


LAA 

A I P 0 

AIR 0,W 


63 

00064 

00034 
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UNIT.l 



64 
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00035 

03100110 


STA 

A I P C 
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TBA 
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67 
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69 
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12100273 
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11100066 
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01100525 
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00260 

15100556 
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L077 
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00261 

11100265 


BRU 

NWPG 
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213 
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00262 

11100267 


BRU 
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*6 
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CL 
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11100264 
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-- 
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228 

00229 
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00301 

01100556 
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L077 



* 
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00302 

03100525 

V 
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01100557 

- 

laa 

L018 
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03100530 
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PAGE 
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SPB 

CL 
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14100530 


IMS 
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00307 

11100305 
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*-2 
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00237 

00310 

11300300 


BRU* 

NPG 




237 

00238 

00311 

02100571 

P0UT 

LBA 

LI 0 0 
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00239 

00312 

04100526 


STB 

FI 




239 

00240 

00313 

11100240 


BRU 

T0T2 




240 

00241 

00314 

12100532 

P0T1 

SPB 

CL 
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FEED 
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00242 
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BRU* 
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242 
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*8 
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00000000 
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** 
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*B 
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00002000 
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*6 
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247 
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RETURN 


*B 

248 
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*B 
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267 
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*& 
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*B 
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27 3 
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11/70 

RLD 

#6 
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#6 
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11/70 

RLD 

#6 
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279 
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#B 
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*B 
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B 
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284 
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»B 
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CK A 


286 
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287 
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00269 

00372 
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D2R0 

0 
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00373 
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C0NV 
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00374 

15100440 


CMA 

P6TH 
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00292 

00375 

11100377 


BRU 
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N0 

292 

00293 

0 0 376 

11100434 


BRU 

STB 
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293 

0 0294 

00377 

15100566 


CMA 
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294 

00295 

00400 

11100402 


BRU 
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N0 

295 

00296 

00401 

11100433 


BRU 

AMB1 
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296 

00297 

00402 

15100550 


CMA 

excl 
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00298 

0 040 3 

11100405 
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N0 

298 

00299 

00404 

11100432 


BRU 

AMB4 
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299 

00300 

00405 

0000002 ? 


SAZ 
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300 

00301 

00406 

11100411 
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N0 

301 

00302 

00407 

02100562 


LBA 

L035 

*20 

302 

00303 

00410 

11100434 

V 

BRU 

STB 


303 

00304 

00411 

00U00416 


LSL 

4 


304 

00305 

00412 

00000024 


SAP 


TEST F0R 12 PUNCH 

305 

003Q6 

00413 

16100441 


AMB 

3STY 

* 60 

306 

00307 

00414 
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LSL 

1 


307 

00308 

00415 

00000024 


SAP 


TEST F0R 11 PUNCH 

308 

00309 

00416 

16100563 


AMB 

11022 

MO 

309 

00310 

00417 

00000116 


LSL 

1 


310 

00311 

00420 

00000024 


SAP 


TEST F0R 0 PUNCH 

311 

0 0 312 

00421 

16100562 


AMB 

L035 
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312 

00313 

00422 

00000116 

LSL 

LSL 

1 


313 
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00423 
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SAN 
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314 

00315 

00424 

11100427 


BRU 
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N0 
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00425 

16100564 


AMB 

D003 

ADJUST T0TAL F0R PUNCH 

316 

00317 

00426 

16100531 


AMB 

FONT 


317 

00318 

00427 

14100531 

IMS 

IMS 

F'CNT 


31.8 

00319 

00430 

11100422 


BRU 

LSL 

N0 

319 

00320 

00431 

11100434 


BRU 

STB 

YES 

320 

00321 

00432 

16100563 

AMB4 

AMB 

D022 

MO 

321 

0032? 

00433 

16100564 

AMB1 

AMB 

DO 03 

'1? 

322 

00323 

00434 

12100502 

STR 

SPB 

bcda 


323 

00324 

00435 

00000004 


TBA 
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00331 
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00441 00000060 
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00443 00131263 
00444 00132265 
00445 00133267 
00446 00134271 
00447 00130275 
00450 00123672 
00451 00137240 
00452 00120257 
00453 00151724 
00454 00i52726 
00455 00153730 
00456 00154732 
00457 00120254 
00460 00124243 
00461 00i56242 
00462 00126712 
00463 00145714 
00464 00146716 
00465 00147720 
00466 00150722 
00467 00120644 
00470 00125335 
00471 00135700 
00472 00125701 
00473 00141303 
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00475 00143307 
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BRU STAB 
FR?9 DATA -9 
06TH DATA *5000 
0STY DATA 48 
TABl DATA *137661 
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00332 

00502 

oooooooo 

BCD A 

Hi 
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00503 
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STA 

FSAV 
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00334 

00504 
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00335 

00505 

00001713 


FLL 

15 

DIVIDE C0DE By TW 0 


335 

00336 

00506 
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336 

00337 

00507 

0250044? 


lba 

TABL,1 

GET TW0 C0DES 


337 

00338 

00510 
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SAP 


BCD C0DE 0DDO 


338 

00339 

00511 
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FLL 

8 
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339 

00340 

00512 

00000004 


TRA 


N0 


340 

00341 

00513 

00001015 


RSL 

8 



341 

00342 

00514 

00000005 


TAB 




342 

00343 

00515 

01100517 


LAA 

FSAV 



343 

00344 

00516 

11300502 


BPU<* 

BCD A 



344 

00345 

00517 

25400000 

FSAV 

DAC 

0 



345 

00346 

00520 

25400000 

SIX 

DAC 

0 



346 

00347 

00521 

25400000 

FC ~ 

DAC 

0 



347 

00348 

00522 

254Q000O 

BA 

DAC 

0 



348 

00349 

00523 

25400000 

NC 

DAC 

0 



349 

00350 

00524 

25400000 

W0RD 

DAC 

0 



350 

00351 

00525 

00177720 

LINE 

DATA 

- • 60 



351 

00352 

00526 

25400000 

SCN 

DAC 

0 

0 

CK A 

352 

00353 

00527 

25400000 

SUN 

DAC 

0 

0 

CK A 

353 

00354 

00530 

25400000 

TUN 

DAC 

0 

0 

CK A 

354 

00355 

00.531 

00000526 

FI 

EGU 

SCN 


CK A 

355 

00356 

00531 

00000527 

WD 

EQU 

SUN 


cka 

356 

00357 

00531 

00000530 

PAGE 

EQU 

TUN 


CK A 

357 

00358 



a 





358 

00359 



6 





359 

00360 

00531 

oooooooo 

FCNT . 

HLT 




360 

00361 



■»---• 


-THIS SUBR0UTINE 0UTPUTS C/R.LF 0N SUN, 


361 

00362 

00532 

11000000 

CL 

BRU 




362 

00363 

00533 

01100044 


LAA 

CRTN 



363 

00364 

00534 

12100116 


SPB 

k UTP 



364 

00365 

00535 

01100047 


LAA 

LNFD 



365 

00366 

00536 

12100116 


SPB 

3 U T P 
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00367 

00537 
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00540 
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BRU# 
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L$PG 
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00543 
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SAN 


00373 

00544 
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neg 


00374 

00545 

03100556 


STA 

1077 

00375 

00546 

03100525 


STA 

LINE 

00376 

00547 

11300542 


BPU# 

l$pg 

00377 



* 



00378 

00550 

00003000 

EXCL 

DATA 

' 3000 

00379 

00551 

00177776 

L025 

DATA 

-2 

00380 

00552 

00000377 

L067 

DATA 

'377 

00361 

00553 

00000240 

1003 

DATA 

'240 

00382 

00554 

00000261 

C117 

DATA 

• 261 

00383 

00555 

00000260 

10 74 

DATA 
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00384 

00556 

00177720 

L077 

DATA 

' -60 

00385 

00557 

00177774 

1018 

DATA 

-4 

00386 

0056Q 

00000253 

1,102 

DATA 

'253 

00387 

00561 

00000555 

L011 

EQU 

L074 

00388 

00561 

oooooooo 

DZR0 

data 

0 

00389 

00562 

00000020 

L 035 

DATA 

16 

00390 

00563 

00000040 

DO 22 

DATA 

* 40 

00391 

00564 

00000012 

DO 0 3 

DATA 

'12 

00392 

00565 

00177777 

LQ13 

DATA 

*177777 

00393 

00566 

00001000 

1004 

DATA 

'001000 

00394 

00567 

00000212 

L053 

DATA 

*212 

00395 

00570 

00000215 

1052 

DATA 

' 215 

00396 

00571 

35400314 

L100- 

DAC 

P0T1 

00397 

00572 

35400364 

L101 

DAC 

PR01 

00398 

00573 

00170101 

A0P1 

A0P 

liW 

00399 

00574 

00170300 

A IPO 

A I P 

0 ,W 

00400 

00575 

00170100 

A0PQ 

A0P 

0 ,W 

00401 

00576 

00130100 

CEUQ 

CEU 

0 ,W 

00402 

00577 

00000336 

KDFL 

DATA 

*336 

00403 

00600 

25400000 

LDM 

DAC 

0 
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00404 
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* 

321 









A0P 0 


81 


400 









A0P1 


67 


398 









A0PC 


79 


111 









A0P0 


83 


115 









ASR 


71 


74 

a 

404 







BA 


43 


84 


95 

105 

182 

183 

* 348 



BCDA 


323 

# 

332 


344 







CCCC 


276 

a 

280 









CEUO 


51 

a 

401 









CEUL 


53 

a 

56 








* 

C'INP 


151 

a 

287 









CL 


^ 16 


222 


234 

241 

* 362 

369 




C0NV 


85 


'87 


88 

94 

109 

112 

» 148 

196 

199 



256 


281 


290 







CRLF 


206 


208 


209 

223 

« 224 

228 




CRTN 

* 

72 
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D003 


316 


322 

a 

391 







D022 ‘ 


309 


321 

a 

390 







datl 


55 

a 

57 









DATZ 


54 


78 

a 

123 







DZR0 


289 

a 

388 
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297 

a 
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FI 
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101 
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155 

239 
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* 355 



FC 


41 
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250 
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# 347 

3 68 




FCNT 


288 


317 
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FRZ9 


287 

a 

326 









FSAV 


333 


343 

a 

345 







HSWR 


31 

a 

36 


42 

44 

45 

48 

50 

104 

176 
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191 

242 

286 
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245 

a 
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a 
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IMS 


315 

a 

318 
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92 

a 
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92 


97 
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a 
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L011 
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58 
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L067 


159 

* 

380 





L074 
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L077 
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ft 
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L102 
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V 
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O 
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39 
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37 


86 


93 


179 

LINE 


32 
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75 
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LP 
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NC 


47 


99 


184 
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ft 
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70 
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34 
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90 
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TINP 
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240 

T0UT 
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<* 
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s 
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84 
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